cho cái cốt thôi

s:=0;

for i:= 1 to n do

s:=s*(1/(1/(i*i));

if (n mod 1=0) and (n mod=0) then write('vay n la so.....')

else write('n 0 la .........');

readln

end.

đúng không ?

1: yêu , thích tôi không nghĩ vậy , tôi ghét nó từ lớp 9 , tôi không công nhận cảm xúc tôi cho bạn là yêu hay thích tôi không nghĩ vậy ., tôi nghĩ ..........(chút nói sau)======================2:cậu biết hay chưa tôi sống và nhận ..........(cậu tự suy ra từ câu sau)từ bố mẹ , bạn bè , nên tôi gần như trầm cảm ghét mọi người ,mọi thứ , ghét thì đó nhưng tôi luôn muốn họ quan tâm , họ quý tôi , họ coi tôi tồn tại (cái này thì hơi quá thật thì tôi tồn tại nhưng những việc họ làm , họ trao đổi , với nhau dường như không liên quan , không nghĩ tới tôi [ít nhất cũng giao cho tôi một công việc nào đó ?, nghĩ tới tôi , cảm xúc của tôi chứ?] ),và cậu uk có quan tâm , nguồn X duy nhất (nó là sự thật ), và tôi luôn muốn khai thác từ đó . nên tôi gửi "nó " , để có thể nhận được X qua các câu nói (cậu sẻ chú ý đến nội dung of it , cho thấy cậu có quan tâm đến tôi ), và thật sự tôi nhận được nó , cậu chú ý đến "nó " ,------------------------------ 3: phải thừa nhận rằng trong tôi có ý nghĩ là cậu giả tạo ,nó tạo nên từ sự nghi ngờ về phong và kuru....(học 24) = cậu ,dối tar1 hình như có trong nội dung của nó ----------------------------4 : ráp ! cậu quá chút ý đến nó doạn hát không mang những thứ cậu chú ý , cậu quá tậm trung vào đoạn ráp ! , nó có hai mặt được thể hiện ở hai cách khác nhau ----------------------5: thật sự đoạn ráp là ý nghĩ của tôi về con gái từ năm lớp 9 , và tôi nghe nó từ lâu rồi , và ý nghĩ về con gái đó mờ dần khi tôi biết ngọc , cậu , linh , huyền .(olm) , chứ không phải cậu ban cho tôi suy nghĩ đó hiểu chứ ??! (mong) ,và một phần vấn đề là cậu , cậu quan tâm nó làm gì ? cậu ghép nó cho tôi với cậu chi ? , nó đâu phải của tôi tạo ra ? , tôi nói nó hợp suy nghĩ tôi sao ? cũng không thể trách cậu được một chút nào đó trong tôi muốn cậu quan tâm tới nội dung , khao khác X chăn , tôi nói rồi tôi nói gì đó ........ lần trước có giải thích , đại loại là không phải suy nghĩ đó , cậu vẫn khưng khưng cho tôi , cậu muốn ghét tôi ? ,tóm lại một phần tôi có nó (cậu giả tạo ) , một phần tôi cần X , và tôi không thoát được rắc rối này sao ? làm ơn đừng đi đâu tôi không muốn mất liên kết với cậu , cậu bận lắm ?, một tháng cậu on một lần cũng được , đâu cần phải bỏ luôn nó ? ! (hoc 24), làm ơn tôi không muốn mất .... đừng có nghĩ đây là tình yêu , đừng gán những khái niệm , cảm xúc của những con người ngoài kia cho tôi , họ tôi thấy cái đẹp của họ uk cái đẹp đó có sự góp xứng của cái xấu , chính những cái xấu đã tạo nên những cái đẹp đó vì chúng cùng được tạo nên từ 1 bộ não
xong rồi đó đọc kỉ vào và cho tôi câu trả lời "cậu lập trình lại kì ức hình ảnh về tôi chưa , cậu "

Câu 6:

uses crt;

var n,i:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

if n mod i=0 then write(i:4);

readln;

end.

5:

uses crt;

var n,i,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=0 to n do

if i mod 2=1 then 

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln(dem);

readln;

end.

b)

program hotrotinhoc;

var s: real;

i,n: byte;

function t(x: byte): longint;

var j: byte;

t1: longint;

begin

t1:=1;

for j:=1 to x do

t1:=t1*j;

t1:=t;

end;

begin

readln(n);

s:=0;

for i:=1 to n do

s:=s+1/t(i);

write(s:1:2);

readln

end.

c) Đề em ghi sai rồi thế này với đúng :

\(T=1+\frac{2}{2^2}+\frac{3}{3^2}+\frac{4}{4^2}+...+\frac{n}{n^2}\)

program hotrotinhoc;

var t: real;

n,i: byte;

begin

readln(n);

t:=0;

for i:=1 to n do

t:=t+i/(i*i);

write(t:1:2);

readln

end.

a)

uses crt;

var N,S,i : integer;

begin clrscr;

S:=1;

for i:= 1 to N do S:=S*i;

writeln('N!=',S);

readln

end.

Các cái kia tương tự :))

d)

program hotrotinhoc;

var i,n: byte;

s: real;

function mu(x: byte): longint;

var j : byte;

k: longint;

begin

k:=1;

for j:=1 to x do

k:=k*x;

k:=mu;

end;

begin

readln(n);

s:=0;

for i:=1 to n do

s:=s+1/mu(i);

write(s:1:2);

readln

end.

e)

program hotrotinhoc;

var s: real;

i,n: byte;

begin

readln(n);

s:=0;

for i:=1 to n do

s:=s+i/(i+1);

write(s:1:2);

readln

end.

chịu nạ

program chia;

uses crt;

var n,i:integer;

s:real;

begin 

clrscr;

s:=0;

for i:=2 to 50 do s:=s+1/i;

writeln('Tong la ',s:1:2);

readln;

end.

Var P, N, i: Integer;

Begin

       Write('Nhap N: ');

       ReadLn(N);

       P := 1;

       For i := 1 To N Do

              P := P * (1/i);

       Writeln('Tich cua P la: ', P);

End.

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

double p1,p2;

int i,n;

int main()

{

cin>>n;

p1=1;

p2=1;

for (i=1; i<=n; i++)

{

if (i%2==0) p2=p2*(i*1.0);

else p1=p1*(i*1.0);

}

cout<<fixed<<setprecision(2)<<p1<<endl;

cout<<fixed<<setprecision(2)<<p2;

return 0;

}

c1: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) s=s*i;

cout<<s;

return 0;

}

Câu 2: 

#include <bits/stdc++.h>

using namespace std;

long long i,n,s;

int main()

{

cin>>n;

s=1;

for (i=1; i<=n; i++) if (i%2==0) s=s*i;

cout<<s;

return 0;

}

1: tính tổng của \(S=1+\frac{1}{2^2}+\frac{1}{3^2}+\frac{1}{4^2}+...+\frac{1}{100^2}\)

uses crt;

var s:real;

i:integer;

begin

clrscr;

s:=0;

for i:=1 to 100 do

s:=s+1/(sqr(i));

writeln('tong cua day so la: ',s);

readln;

end.

2: tính tổng \(S=1+\frac{1}{3^2}+\frac{1}{5^2}+\frac{1}{7^2}+...+\frac{1}{n^2}\)

uses crt;

var s:real;

n,i:integer;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=1 to n do

if i mod 2=1 then s:=s+1/(sqr(i));

writeln('tong cua day so la: ',s:4:2);

readln;

end.